(* CardShuffle.pas *)

program CardStack;

uses nodes, list;

var
   i : integer; (* iterator *)
   t : link; (* zmienna dowiazaniowa pomocnicza *)
   k : integer; (* przelozenie w miejscu wyznaczonym przez k*)
begin
   NodesNr := ReadData('data.in'); (* czytanie danych dla elementow *)
   head := nil; (* wkladanie elementow na stos *)
   for i := 1 to NodesNr do
      NodeIns(NodesTab[i], head); (* wstawianie wezla po head *)
   k := 26;
   CardSh(k);
   t := head; (* wydruk przetasowanych wezlow z listy*)
   while t <> nil do
   begin
      print(t);
      t := t^.next;
   end;
end.
